Computer Buyer 1997 August/Oasis demo.iso/Office/Claris13/CLARIS.CST/00058_Script_58

Text File | 1997-03-20 | 5KB | 214 lines

on  genericonoff

  updatestage
  global spritex,spritey,gsprite,svalue,rsprite,voodoochild,standardrollovers

  if rollover (rsprite) then
    set the visible of sprite rsprite to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite to false
    updatestage
  end if

  if rollover (rsprite+1) then
    set the visible of sprite rsprite+1 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+1 to false
    updatestage
  end if

  if rollover (rsprite+2) then
    set the visible of sprite rsprite+2 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+2 to false
    updatestage
  end if

  if rollover (rsprite+3) then
    set the visible of sprite rsprite+3 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+3 to false
    updatestage
  end if

  if rollover (rsprite+4) then
    set the visible of sprite rsprite+4 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+4 to false
    updatestage
  end if

  if rollover (rsprite+5) then
    set the visible of sprite rsprite+5 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+5 to false
    updatestage
  end if

  if rollover (rsprite+6) then
    set the visible of sprite rsprite+6 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+6 to false
    updatestage
  end if

  if rollover (rsprite+7) then
    set the visible of sprite rsprite+7 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+7 to false
    updatestage
  end if

  if rollover (rsprite+8) then
    set the visible of sprite rsprite+8 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+8 to false
    updatestage
  end if

  if rollover (rsprite+9) then
    set the visible of sprite rsprite+9 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+9 to false
    updatestage
  end if

  if rollover (rsprite+10) then
    set the visible of sprite rsprite+10 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+10 to false
    updatestage
  end if

  if rollover (rsprite+11) then
    set the visible of sprite rsprite+11 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+11 to false
    updatestage
  end if

  if rollover (rsprite+12) then
    set the visible of sprite rsprite+12 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+12 to false
    updatestage
  end if

  if rollover (rsprite+13) then
    set the visible of sprite rsprite+13 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+13 to false
    updatestage
  end if

  if rollover (rsprite+14) then
    set the visible of sprite rsprite+14 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+14 to false
    updatestage
  end if

  if rollover (rsprite+15) then
    set the visible of sprite rsprite+15 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+15 to false
    updatestage
  end if

  if rollover (rsprite+16) then
    set the visible of sprite rsprite+16 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+16 to false
    updatestage
  end if

  if rollover (rsprite+17) then
    set the visible of sprite rsprite+17 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+17 to false
    updatestage
  end if

  if rollover (rsprite+18) then
    set the visible of sprite rsprite+18 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+18 to false
    updatestage
  end if

  if rollover (rsprite+19) then
    set the visible of sprite rsprite+19 to true
    set svalue=60+the rollover
    updatestage
  else
    set the visible of sprite rsprite+19 to false
    updatestage
  end if

  if standardrollovers=0 then

    if (the mousecast > 44) and (the mousecast < 65) then
      set the locH of sprite gsprite to spritex
      set the locV of sprite gsprite to spritey
      set the castNum of sprite gsprite to svalue
      updatestage
    end if

    if (the mousecast = 85) then
      set the castNum of sprite gsprite to 32000
      updatestage
    end if

    if (the mousecast = 0) then
      set the castNum of sprite gsprite to 32000
      updatestage
    end if

    if (the mousecast > 32000) then
      set the castNum of sprite gsprite to 32000
      updatestage
    end if

  end if

end genericonoff